10 BA=49152:FORJ=BATOBA+326:READA:POKEJ,A:NEXT:SE=BA:CO=SE+11:CL=SE+33:PR=SE+56
20 DATA 169,24,141,24,208,169,59,141,17,208,96,160,0,169,97,153,0,4,153,250
30 DATA 4,153,244,5,153,238,6,200,192,250,208,239,96,169,32,133,255,162,63
40 DATA 169,0,133,254,168,145,254,200,208,251,230,255,228,255,176,245,96
50 DATA 165,255,72,165,163,72,165,164,72,160,0,162,0,169,192,133,163,169,30
60 DATA 133,164,230,252,230,253,24,165,163,105,64,133,163,165,164,105,1,133
70 DATA 164,200,196,253,208,238,198,252,198,253,169,0,133,254,24,165,252,41
80 DATA 1,133,2,165,252,41,254,133,252,24,6,252,38,254,6,252,38,254,24,165
90 DATA 163,101,252,133,163,165,164,101,254,133,164,169,0,133,254,138,133
100 DATA 254,24,6,251,38,254,6,251,38,254,6,251,38,254,24,165,254,105,208
110 DATA 133,254,165,251,133,151,165,253,133,251,165,151,133,253,173,14
120 DATA 220,41,254,141,14,220,165,1,41,251,133,1,160,0,177,253,153,167,2
130 DATA 200,192,8,208,246,165,1,9,4,133,1,173,14,220,9,1,141,14,220,160,0
140 DATA 132,254,185,167,2,41,128,133,254,185,167,2,41,32,10,5,254,133,254
150 DATA 185,167,2,41,8,10,10,5,254,133,254,185,167,2,41,2,10,10,10,5,254
160 DATA 133,254,165,2,240,8,165,254,74,74,74,74,133,254,165,254,153,167,2
170 DATA 200,192,8,208,194,165,2,240,6,169,240,133,255,208,4,169,15,133
180 DATA 255,160,0,177,163,37,255,25,167,2,145,163,200,192,8,208,242,104
190 DATA 133,164,104,133,163,104,133,255,96
200 PRINT"[147] 80 COLUMNS IS ACTIVE!
210 [153]"RUN THE DEMO PROGRAMS TO
220 PRINT"SEE IT IN ACTION.